my $f = "E:/test/lin_common_proto.c";
open (F, $f) || die "Could not open $f: $!\n";
my @f = <F>;
close F;
my $lines = @f;

print "LINES: \n" . @f;